home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgramD2.iso
/
Borland
/
Borland C++ For TASM
/
USRGUIDE.PAK
/
EXCHMOD.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-02-21
|
1KB
|
43 lines
{ Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc. }
{ Use with exchmod.asm }
program TextExchange;
type
EmployeeRecord = record
Name : string[30];
Address : string[30];
City : string[15];
State : string[2];
Zip : string[10];
end;
var
OldEmployee, NewEmployee : EmployeeRecord;
procedure Exchange(var Var1,Var2; Count : Word); far; external;
{$L EXCHMOD.OBJ}
begin
with OldEmployee do
begin
Name := 'John Smith';
Address := '123 F Street';
City := 'Scotts Valley';
State := 'CA';
Zip := '90000-0000';
end;
with NewEmployee do
begin
Name := 'Mary Jones';
Address := '9471 41st Avenue';
City := 'New York';
State := 'NY';
Zip := '10000-1111';
end;
Writeln('Before: ',OldEmployee.Name,' ',NewEmployee.Name);
Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
Writeln('After: ',OldEmployee.Name,' ',NewEmployee.Name);
Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
Writeln('After: ',OldEmployee.Name,' ',NewEmployee.Name);
end.